home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
LINE.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
3KB
|
59 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME LINE .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NBV1.INC"
SCREEN 12
GraphicSETUP
? "┌────────────────────────────────────────────────────────────────────────
? "│ GLineDRAW( Col1%, Row1%, Col2%, Row2%, Mask%, Pmode?, Colour? )
? "├────────────────────────────────────────────────────────────────────────
? "│ Col1% = left column Col2% = right column
? "│ Row1% = top row Row2% = bottom row
? "│ Mask% = bit-mapped pixels Pmode? = put-mode ( 0 -> 4 )
? "│ Colour? = drawing color ( 0 -> 15 )
? "│
? "│ Drawing a simple line can be fun! Just look what we've got to offer
? "│ below. With proper use of Mask% and Pmode? some really startling effects
? "│ can be done with lines.
? "└────────────────────────────────────────────────────────────────────────
Mask% = 0 '
GLineDRAW 0, 300, 319, 300, 0, 3, 14 ' a solid line Mask% = 0
Mask% = -1 ' (Same thing here)
GLineDRAW 0, 305, 319, 305, 0, 3, 14 ' a solid line Mask% = -1
'
Mask% = &b0101010101010101 '
GLineDRAW 0, 320, 319, 320, Mask%, 3, 14 ' every-other pixel is ON
'
Mask% = &b1100110011001100 '
GLineDRAW 0, 340, 319, 340, Mask%, 3, 14 ' getting the idea?
'
Mask% = &b1100001111000011 ' here's another way to do it
GLineDRAW 0, 360, 319, 360, Mask%, 3, 14 '
'
Mask% = &b0011110000111100 ' better have another look here
GLineDRAW 0, 360, 319, 360, Mask%, 1, 9 ' Pmode? = 1 OR
WHILE NOT INSTAT : WEND
CLS
SCREEN 0